10 REM*****************************
20 REM
30 REM    WINDOWS 64 DEMO
40 REM
50 REM*****************************
60 REM
90 POKE 53281,6
100 PRINT "[147]":PRINT
110 PRINT "    WINDOWS 64 DEMO"
120 PRINT:PRINT "    TO RUN THIS DEMO, YOU MUST FIRST"
130 PRINT:PRINT "     ENTER THE FOLLOWING COMMANDS:"
140 PRINT "[144]":PRINT "LOAD 'WINDOW1',8,1    (COMPILER CORE)"
150 PRINT:PRINT "[144]SYS 64738             (RESET)"
160 PRINT:PRINT "[144]LOAD 'WINDOW2',8,1    (WINDOW ROUTINE)"
170 PRINT:PRINT "[144]POKE 44,32:POKE 8192,0(RAISE BASIC)"
180 PRINT:PRINT "[144]LOAD 'WINDOWS 64',8   (DEMO)"
185 PRINT:PRINT "[144]RUN"
190 PRINT:PRINT "DO YOU WISH TO PROCEED WITH DEMO?"
195 GET A$:IF A$=""THEN 195
197 IF A$<>"Y" THEN END
200 PRINT "[147]":POKE 12500,10
210 POKE 12501,6
220 POKE 12502,10
230 POKE 12503,5
240 POKE 12504,ASC("H")
250 POKE 12505,ASC("I")
260 POKE 12506,ASC("!")
270 POKE 12507,95
280 SYS 2117:END